VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsClassInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Option Explicit

' Name:     Windows Information Viewer
' Author:   Chong Long Choo
' Date:     06 September 1999

Private mvarCS_BYTEALIGNCLIENT As Boolean
Private mvarCS_BYTEALIGNWINDOW As Boolean
Private mvarCS_CLASSDC As Boolean
Private mvarCS_DBLCLKS As Boolean
Private mvarCS_PUBLICCLASS As Boolean
Private mvarCS_HREDRAW As Boolean
Private mvarCS_NOCLOSE As Boolean
Private mvarCS_OWNDC As Boolean
Private mvarCS_PARENTDC As Boolean
Private mvarCS_SAVEBITS As Boolean
Private mvarCS_VREDRAW As Boolean
Private mvarClass_Extra As Long
Private mvarWord_Extra As Long

Public Property Let Word_Extra(ByVal vData As Long)
    mvarWord_Extra = vData
End Property

Public Property Get Word_Extra() As Long
    Word_Extra = mvarWord_Extra
End Property

Public Property Let Class_Extra(ByVal vData As Long)
    mvarClass_Extra = vData
End Property

Public Property Get Class_Extra() As Long
    Class_Extra = mvarClass_Extra
End Property

Public Property Let CS_VREDRAW(ByVal vData As Boolean)
    mvarCS_VREDRAW = vData
End Property

Public Property Get CS_VREDRAW() As Boolean
    CS_VREDRAW = mvarCS_VREDRAW
End Property

Public Property Let CS_SAVEBITS(ByVal vData As Boolean)
    mvarCS_SAVEBITS = vData
End Property

Public Property Get CS_SAVEBITS() As Boolean
    CS_SAVEBITS = mvarCS_SAVEBITS
End Property

Public Property Let CS_PARENTDC(ByVal vData As Boolean)
    mvarCS_PARENTDC = vData
End Property

Public Property Get CS_PARENTDC() As Boolean
    CS_PARENTDC = mvarCS_PARENTDC
End Property

Public Property Let CS_OWNDC(ByVal vData As Boolean)
    mvarCS_OWNDC = vData
End Property

Public Property Get CS_OWNDC() As Boolean
    CS_OWNDC = mvarCS_OWNDC
End Property

Public Property Let CS_NOCLOSE(ByVal vData As Boolean)
    mvarCS_NOCLOSE = vData
End Property

Public Property Get CS_NOCLOSE() As Boolean
    CS_NOCLOSE = mvarCS_NOCLOSE
End Property

Public Property Let CS_HREDRAW(ByVal vData As Boolean)
    mvarCS_HREDRAW = vData
End Property

Public Property Get CS_HREDRAW() As Boolean
    CS_HREDRAW = mvarCS_HREDRAW
End Property

Public Property Let CS_PUBLICCLASS(ByVal vData As Boolean)
    mvarCS_PUBLICCLASS = vData
End Property

Public Property Get CS_PUBLICCLASS() As Boolean
    CS_PUBLICCLASS = mvarCS_PUBLICCLASS
End Property

Public Property Let CS_DBLCLKS(ByVal vData As Boolean)
    mvarCS_DBLCLKS = vData
End Property

Public Property Get CS_DBLCLKS() As Boolean
    CS_DBLCLKS = mvarCS_DBLCLKS
End Property

Public Property Let CS_CLASSDC(ByVal vData As Boolean)
    mvarCS_CLASSDC = vData
End Property

Public Property Get CS_CLASSDC() As Boolean
    CS_CLASSDC = mvarCS_CLASSDC
End Property

Public Property Let CS_BYTEALIGNWINDOW(ByVal vData As Boolean)
    mvarCS_BYTEALIGNWINDOW = vData
End Property

Public Property Get CS_BYTEALIGNWINDOW() As Boolean
    CS_BYTEALIGNWINDOW = mvarCS_BYTEALIGNWINDOW
End Property

Public Property Let CS_BYTEALIGNCLIENT(ByVal vData As Boolean)
    mvarCS_BYTEALIGNCLIENT = vData
End Property

Public Property Get CS_BYTEALIGNCLIENT() As Boolean
    CS_BYTEALIGNCLIENT = mvarCS_BYTEALIGNCLIENT
End Property
